home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk19 / blinker / scanline.sub < prev    next >
Text File  |  1995-03-18  |  984b  |  43 lines
  1. '---------------------------------------------------------------------------
  2. '
  3. '                Scan Line
  4. '
  5. '
  6. '            Copyright 1987 by Brian Zupke
  7. '
  8. '
  9. '      Scans source line for 'CALL X.SUB' where X is a
  10. '  module name.  If found, then the module name is
  11. '  returned in ModuleCall$.
  12. '
  13.  SUB ScanLine.SUB(SourceLine$,ModuleCall$) STATIC
  14.  
  15.   ModuleCall$ = ""
  16.   ThisLine$ = " " + SourceLine$
  17. '
  18. '  Skip comments
  19. '
  20.     CALL CommentCheck.SUB(ThisLine$,LineIsComment)
  21.     IF NOT LineIsComment THEN
  22. '
  23. '  Locate ' CALL '
  24. '
  25.       C = INSTR(UCASE$(ThisLine$)," CALL ")
  26.       IF C > 0 THEN
  27. '
  28. '  Isolate subprogram name
  29. '
  30.          Character = C + 6
  31.          WHILE MID$(ThisLine$,Character,1) = " "
  32.            Character = Character + 1
  33.          WEND
  34.          C = Character
  35.          C = INSTR(C,UCASE$(ThisLine$),".SUB")
  36.          IF C > 0 THEN
  37.             Length = (C + 4) - Character
  38.             ModuleCall$ = MID$(ThisLine$,Character,Length)
  39.          END IF
  40.       END IF
  41.    END IF  
  42. END SUB
  43.